(math-compose-expr): Let `calc-twos-complement-mode' be nil.

diff --git a/lisp/calc/calccomp.el b/lisp/calc/calccomp.el
index 5ad798abb561d808d6c1c6154a548aeb04df128d..8c168244704a27db901c7fdb654e5e00842fa2e8 100644 (file)
--- a/lisp/calc/calccomp.el
+++ b/lisp/calc/calccomp.el
@@ -377,7 +377,8 @@
                (list 'horiz "(" (math-compose-expr (nth 1 a) 0) ")")
              (math-compose-expr (nth 1 a) 201))
            (let ((calc-language 'flat)
-                 (calc-number-radix 10))
+                 (calc-number-radix 10)
+                  (calc-twos-complement-mode nil))
              (math-compose-expr (nth 2 a) 0))))
      ((and (eq (car a) '/)
           (eq calc-language 'big))